(defun C:K-ROTATE (/ cmdecho objects obj-num rot-ang object obj-data)
  (setq cmdecho (getvar 'CMDECHO))
  (setvar "CMDECHO" 0)
  (setq objects (ssget))
  (setq obj-num (sslength objects))
  (setq rot-ang (getangle "Specify rotation angle: "))
  (while (>= obj-num 1)
    (setq obj-num (- obj-num 1))
    (setq object (ssname objects obj-num))
    (setq obj-data (entget object))
    (command "_rotate" "_si" object (cdr (assoc 10 obj-data)) (* (/ 180 pi) rot-ang))
  )
  (setvar "CMDECHO" cmdecho)
  (princ)
)